home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM 8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  54 lines
  1. 10 ;BAM 8
  2. 20 ;THE LISTEN ROUTINE ALERTS THE DISK THAT A COMMAND IS BEING SENT
  3. 30 ;OVER THE SERIAL BUS. THIS COMMAND IS PLACED IN THE 1541'S COMMAND
  4. 40 ;BUFFER AT $0200 IT IS THEN PARSED AND EXECUTED.
  5. 50 ;
  6. 60 ;THE TALK ROUTINE SENDS 1 BYTE AT A TIME FROM THE 1541 TO THE 64 OVER THE
  7. 70 ;SERIAL BUS. THE BYTE IS HELD IN THE A REGISTER.
  8. 80 ;
  9. 90 ;BOTH ROUTINES REQUIRE THAT A SECONDARY ADDRESS BE SPECIFIED.
  10. 100 ;
  11. 110 INIT JSR LIST
  12. 120 LDA #$49; "I"
  13. 130 JSR OUT; SEND 1 BYTE TO THE 1541
  14. 140 JSR UNLIS
  15. 150 RTS
  16. 160 LIST LDA #$08;DEVICE NUMBER
  17. 170 JSR LIS
  18. 180 ;
  19. 190 ;64 ROM STRIPS HIGH BITS OF SECONDARY
  20. 200 ;ADDRESS #$FF BECOMES #$0F (15)
  21. 210 ;THE COMMAND CHANNEL SAME AS
  22. 220 ;OPEN15,8,15 IN BASIC
  23. 230 ;
  24. 240 LDA #$FF
  25. 250 JSR LISEC
  26. 260 RTS
  27. 270 ;
  28. 280 TALK LDA #$08
  29. 290 JSR TLK; GET 1 BYTE FROM THE 1541
  30. 300 LDA #$FF
  31. 310 JSR TLKSEC
  32. 320 RTS
  33. 330 ;
  34. 340 ;1541 COMMANDS HAVE THERE 7TH BIT SET
  35. 350 ;ERROR CODES HAVE THERE 7TH BIT OFF
  36. 360 ;
  37. 370 CHKERR JSR LIST;WAIT FOR COMMAND TO BE REPLACED WITH ERROR CODE
  38. 380 LDY #$00
  39. 390 CHK1 LDA MR,Y
  40. 400 JSR OUT
  41. 410 INY
  42. 420 CPY #$06
  43. 430 BNE CHK1
  44. 440 JSR UNLIS
  45. 450 ;
  46. 460 JSR TALK
  47. 470 JSR IN
  48. 480 STA ERR
  49. 490 JSR UNTLK
  50. 500 LDA ERR
  51. 510 BMI CHKERR; SEVENTH BIT SET "NO ERROR CODE"
  52. 520 RTS
  53. 530 .FILE BAM TABLES
  54.